home *** CD-ROM | disk | FTP | other *** search
/ NetNews Offline 2 / NetNews Offline Volume 2.iso / news / comp / lang / modula2 / 427 < prev    next >
Encoding:
Text File  |  1996-08-06  |  1.3 KB  |  43 lines
  1. Newsgroups: comp.lang.modula2
  2. Path: cix.compulink.co.uk!usenet
  3. From: mark_tbu@cix.compulink.co.uk ("Mark Morgan Lloyd ")
  4. Subject: Re: constant tables?
  5. Message-ID: <DoB9py.3s6@cix.compulink.co.uk>
  6. Organization: KDG Mobrey Telemetry
  7. References: <erico-1403961506370001@infinitehell.cnmat.berkeley.edu>
  8. Date: Fri, 15 Mar 1996 13:34:46 GMT
  9. X-News-Software: Ameol
  10.  
  11. Please try to keep your lines a bit shorter :-)
  12.  
  13. > How do I make constant tables?
  14. > 
  15. > I write code for an embedded system. Lookup tables in ROM are a pretty 
  16. > useful thing and I just couldn't find a way to do it.
  17.  
  18. Depending on your compiler, you may find the literal data being put in an 
  19. unexpected segment, and then copied to a literal constant. It is 
  20. sometimes easier to put this sort of thing into a fixed location in 
  21. memory, accessed by an absolute variable.
  22.  
  23. > Did I miss something?
  24. > 
  25. > Something like
  26. > [BEGIN EXAMPLE]
  27. > VAR
  28. >   myTable : ARRAY [0..9] OF CARDINAL = [0, 6, 2, 5, 1, 3, 4, 9, 8, 7];
  29. > [END EXAMPLE]
  30.  
  31. Depends very much on the compiler. Under TopSpeed (which we use for 
  32. embedded '386):
  33.  
  34. TYPE    tableType= ARRAY[0..9] OF CARDINAL;
  35.  
  36. CONST   myTable= tableType(0, 6, 2, 5, 1, 3, 4, 9, 8, 7);
  37.  
  38. Mark Morgan Lloyd
  39. mark_tbu@cix.compulink.co.uk
  40.  
  41. [Opinions above are the author's, not those of his employers or 
  42. colleagues]
  43.